home *** CD-ROM | disk | FTP | other *** search
/ Saar AMOK 2 / Saar AMOK II - Oktober 1994 (1994)(Kreativ Marketing)(DE)[!][I-7598].iso / disks / 651_700 / 663 / mathplot / macros / test15.rexx < prev    next >
OS/2 REXX Batch file  |  1994-01-01  |  1KB  |  63 lines
  1. /* test setcolor/getcolor */
  2. address "MPlot_ARexx"
  3. options results
  4.  
  5. getcolor textcolor textcolorback textmode axiscolor axiscolorback axismode stem a.
  6.  
  7. say "Color: FrontPen, BackPen, Mode"
  8. say a.textcolor a.textcolorback a.textmode
  9. say a.axiscolor a.axiscolorback a.axismode
  10.  
  11. setcolor axiscolor 3 axiscolorback 2 axismode 1
  12. setcolor plotcolor 1
  13. plot 0 normal
  14. /*showaxis*/
  15.  
  16.  
  17. setcolor textcolor 2 textcolorback 1 textmode 1
  18.  
  19. do i=1 to 10
  20.  xpos = i*15
  21.  ypos = i*15+5
  22.  
  23.  text 'text "Dies ist ein TEST " xpos' xpos ' ypos ' ypos 
  24.  
  25. end
  26. say
  27. exit
  28.  
  29. /* Test of (get)font */
  30.  
  31. say "Active Fonts: "
  32. getfont stem a.
  33. say "Name      " a.name 
  34. say "Size      " a.size
  35. say "Bold      " a.bold
  36. say "italics   " a.italics
  37. say "underline " a.underline
  38.  
  39. getfont "axisfont=ON stem a."
  40. say "Name      " a.name 
  41. say "Size      " a.size
  42. say "Bold      " a.bold
  43. say "italics   " a.italics
  44. say "underline " a.underline
  45. say
  46.  
  47. /* Get a new font */
  48. do i=1 to 10
  49.  xpos = i*15+20
  50.  ypos = i*15+100
  51.  font "times.font" 2*i+12 bold italic
  52.  text 'text "Dies ist ein TEST 'i+8'" xpos' xpos ' ypos ' ypos
  53. /*
  54.  getfont stem a.
  55.  say "Name " a.name "  Size " a.size
  56. */
  57. end
  58.  
  59. /* Set a new axisfont */
  60. font 'axisfont=on "courier.font" 20 bold underline'
  61. showaxis
  62.  
  63.